home *** CD-ROM | disk | FTP | other *** search
/ .net Business / NETB01.ISO / pc / PCSoftware / ASP Edit 2000 / _SETUP.1 / counter3.asp < prev    next >
Encoding:
Text File  |  1998-07-02  |  279 b   |  13 lines
  1. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  2. Sub Session_OnStart
  3.   ' Lock the Application object
  4.   Application.Lock
  5.  
  6.     ' Increment the count
  7.      Application("Visits") = Application("Visits") + 1
  8.  
  9.   ' Unlock the Application object
  10.   Application.Unlock
  11. End Sub
  12. </SCRIPT>
  13.